home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / az / cyberx.dxr / 00198_PON_CURSOR.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  1012 b   |  48 lines
  1. on pon_cursor que_cursor, que_sprite
  2.   set cast1 to "MANO" & que_cursor
  3.   set cast2 to "MASKMANO" & que_cursor
  4.   set c1 to the number of cast cast1
  5.   set c2 to the number of cast cast2
  6.   if que_sprite then
  7.     if rollOver(que_sprite) then
  8.       cursor([c1, c2])
  9.     else
  10.       cursor(-1)
  11.     end if
  12.   else
  13.     cursor([c1, c2])
  14.   end if
  15. end
  16.  
  17. on cursor_1caja
  18.   set c1 to the number of cast "MANO2"
  19.   set c2 to the number of cast "MASKMANO2"
  20.   set d1 to the number of cast "MANO1"
  21.   set d2 to the number of cast "MASKMANO1"
  22.   if rollOver(4) then
  23.     cursor([c1, c2])
  24.   else
  25.     if rollOver(3) then
  26.       cursor([d1, d2])
  27.     else
  28.       cursor(-1)
  29.     end if
  30.   end if
  31. end
  32.  
  33. on cursor_2cajas
  34.   set c1 to the number of cast "MANO2"
  35.   set c2 to the number of cast "MASKMANO2"
  36.   set d1 to the number of cast "MANO1"
  37.   set d2 to the number of cast "MASKMANO1"
  38.   if rollOver(4) or rollOver(5) then
  39.     cursor([c1, c2])
  40.   else
  41.     if rollOver(3) then
  42.       cursor([d1, d2])
  43.     else
  44.       cursor(-1)
  45.     end if
  46.   end if
  47. end
  48.